home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Exec / Memory.asm < prev    next >
Assembly Source File  |  1991-03-13  |  2KB  |  121 lines
  1. *
  2. *    Memory.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedures and functions
  6. *    defined in Include/Exec/Memory.i
  7. *
  8.  
  9.     SECTION    PCQ_Runtime,CODE
  10.  
  11.     XREF    _AbsExecBase
  12.  
  13.     XREF    _LVOAddMemList
  14.     XDEF    _AddMemList
  15. _AddMemList
  16.     move.l    d2,-(sp)
  17.     move.l    8(sp),a1
  18.     move.l    12(sp),a0
  19.     move.l    16(sp),d2
  20.     move.l    20(sp),d1
  21.     move.l    24(sp),d0
  22.     move.l    _AbsExecBase,a6
  23.     jsr    _LVOAddMemList(a6)
  24.     move.l    (sp)+,d2
  25.     rts
  26.  
  27.     XREF    _LVOAllocAbs
  28.     XDEF    _AllocAbs
  29. _AllocAbs
  30.     move.l    4(sp),a1
  31.     move.l    8(sp),d0
  32.     move.l    _AbsExecBase,a6
  33.     jmp    _LVOAllocAbs(a6)
  34.  
  35.     XREF    _LVOAllocate
  36.     XDEF    _Allocate
  37. _Allocate
  38.     movem.l    4(sp),d0/a0
  39.     move.l    _AbsExecBase,a6
  40.     jmp    _LVOAllocate(a6)
  41.  
  42.     XREF    _LVOAllocEntry
  43.     XDEF    _AllocEntry
  44. _AllocEntry
  45.     move.l    4(sp),a0
  46.     move.l    _AbsExecBase,a6
  47.     jmp    _LVOAllocEntry(a6)
  48.  
  49.     XREF    _LVOAllocMem
  50.     XDEF    _AllocMem
  51. _AllocMem
  52.     move.l    4(sp),d1
  53.     move.l    8(sp),d0
  54.     move.l    _AbsExecBase,a6
  55.     jmp    _LVOAllocMem(a6)
  56.  
  57.     XREF    _LVOAvailMem
  58.     XDEF    _AvailMem
  59. _AvailMem
  60.     move.l    4(sp),d1
  61.     move.l    _AbsExecBase,a6
  62.     jmp    _LVOAvailMem(a6)
  63.  
  64.     XREF    _LVOCopyMem
  65.     XDEF    _CopyMem
  66. _CopyMem
  67.     movem.l    4(sp),d0/a1
  68.     move.l    12(sp),a0
  69.     move.l    _AbsExecBase,a6
  70.     jmp    _LVOCopyMem(a6)
  71.  
  72.     XREF    _LVOCopyMemQuick
  73.     XDEF    _CopyMemQuick
  74. _CopyMemQuick
  75.     movem.l    4(sp),d0/a1
  76.     move.l    12(sp),a0
  77.     move.l    _AbsExecBase,a6
  78.     jmp    _LVOCopyMemQuick(a6)
  79.  
  80.     XREF    _LVODeallocate
  81.     XDEF    _Deallocate
  82. _Deallocate
  83.     movem.l    4(sp),d0/a1
  84.     move.l    12(sp),a0
  85.     move.l    _AbsExecBase,a6
  86.     jmp    _LVODeallocate(a6)
  87.  
  88.     XREF    _LVOFreeEntry
  89.     XDEF    _FreeEntry
  90. _FreeEntry
  91.     move.l    4(sp),a0
  92.     move.l    _AbsExecBase,a6
  93.     jmp    _LVOFreeEntry(a6)
  94.  
  95.     XREF    _LVOFreeMem
  96.     XDEF    _FreeMem
  97. _FreeMem
  98.     movem.l    4(sp),d0/a1
  99.     move.l    _AbsExecBase,a6
  100.     jmp    _LVOFreeMem(a6)
  101.  
  102.     XREF    _LVOInitStruct
  103.     XDEF    _InitStruct
  104. _InitStruct
  105.     move.l    a2,-(sp)
  106.     movem.l    8(sp),d0/a2
  107.     move.l    16(sp),a1
  108.     move.l    _AbsExecBase,a6
  109.     jsr    _LVOInitStruct(a6)
  110.     move.l    (sp)+,a2
  111.     rts
  112.  
  113.     XREF    _LVOTypeOfMem
  114.     XDEF    _TypeOfMem
  115. _TypeOfMem
  116.     move.l    4(sp),a1
  117.     move.l    _AbsExecBase,a6
  118.     jmp    _LVOTypeOfMem(a6)
  119.  
  120.     END
  121.